$dialog open filter "*.gcp файлы|*.gcp|Текстовые файлы(*.txt)|*.txt|Все файлы|*.*" title "Загрузить контрольные точки"
!path = path
!ifdef path
        iprint
        !tab = image
        !ifdef tab
                $dialog table title "Снимок которому принадлежат контрольные точки" text !tab ok "Выбрать" cancel "Авто"
                !i_id = id
                !ifdef i_id
                        gcp load file !path s_id !i_id
                !delete i_id
                !else
                        gcp load file !path
                !endif
        !delete tab
        !endif

!delete path
!endif

